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FORRTL.SRCJFORTIMEDS.MAR; 1 (1) 
~TITLE FORSTIME_T_DS ; return arenes time to FORTRAN 


; character ng 
-IDENT /1-002/ ; File: FORTIMEDS: MAR 


—MARAAABRRBAABABAAALASLSAAAEALE LES SASARASES SERRA RRS S RRR RRR R ERE ERE EERE EERE SESE ESS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


*® ® 
** ® 
*® & 
‘@ 
:® THIS SOFTWARE 1s FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED . 
:® ONLY IN ACCORDANCE WITH THE TER ms OF SUCH LICENSE AND WITH THE * 
:* INCLUSION OF THe ABOVE COPYRIGHT N : OTICE. THIS SOFT ARE OR ANY OTHER * 

‘ ® 
:@ OTHER PERSON. WO TITLE TO AND OWNERSHIP oF THE SOFTWARE IS HEREBY * | 
'® TRANSFERRED. * | 
*® * j 
:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
** CORPORATION. ‘ 
*® tie 
* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
** * 
**® . 
*® * 


LARRRARARARRRALASASASASESESESESERESESESER ERE S RS ES ESE S ERR R SER SR EERE RRR SERS SE SO 


FACILITY: FORTRAN SYSTEM ROUTINE - FORTRAN LIBRARY 
; ABSTRACT: 


Return system time in the form HH:MM:SS to a FORTRAN (fixed-Len) 
string. Blank pad if necessary. 


: VERSION: 0 | 
; HISTORY: 


: AUTHOR: | 
Jonathan M. Taylor, 23-Aug-77: Version 0 


MODIFIED BY: 
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a -SBTTL HISTORY ; Detailed Current Edit History 
: Edit History for Version 0 of FORSTIME_T_DS 
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i 3 94 = Remove FORSFLAG_JACKET. TNH 11-July=-78 
57 ; 1-001 - yogere version number and copyright vnet ice, JBS 16-NOV-78 
58 ; 1-002 - Add ''_"' to the PSECT directive. JBS 22=-DEC-78 


Page (3) | 


K 


FORSTIME 10S 


ao: 
m 

aos 
re 
> 
ow 
uw 


~SBTTL DECLARATIONS 


INCLUDE FILES: 
; oerr.mar 


; EXTERNAL SYMBOLS: 
none 


; MACROS: 
; none 


; PSECT D a ATIONS: 


ECL 
0000 -PSECT _FORSCODE LONG, EXE, NOWRT, PIC, SHR 


; EQUATED SYMBOLS: 
none 


OWN STORAGE: 
none 
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>; FUNCTIONAL DESCRIPTION: 

; Use system service ASCTIM to move system time directly to the 
: caller. Pad the rest of the string with blanks if necessary. 
: CALLING SEQUENCE: 
; CALL FORSTIME_T_DS (time_string.wt.ds) 

: INPUT PARAMETERS: 

3 time_string is the address of a fixed-len string. 
> IMPLICIT INPUTS: 

; NONE 


; OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 
NONE 
; SIDE EFFECTS: 
NONE 
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} 
-ENTRY FORSTIME_T_DS, “M<R2,R3,R4,R5> 
MOVL 4(AP), R3 ; RS => string desc. of users string | 
| 
} 


SASCTIM_S /(R3),,41 ; put ASCII info in users string 

CMPW (R3), #8 ; if users string size is 8 bytes 
; or less, then no padding 

BLEQ 1$ ; is necessary : 

ADDL3) #8, 4(R3), RO ; RO -> where to pad with blanks 

SUBWS #8, (R3), RI - R1 = # bytes to blank pad 

movcS #0, (RO), #*A/ /, RI, (RO) | 
; pee rest of users string 

1$: RET ; back to caller 
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0 FORRTL.SRCJFORTIMEDS.MAR; 1 (4) | 


weet ome senna eer ent 


PSECT name Allocation PSECT No. Attributes 
00000000 <( 8-3 69 ( Q.) NOPIC USR CON ABS - LCL NOSHR woexe NORD NOWRT NOVEC BYTE 
00000 42.) 3 oa USR R LCL SHR 


- ABS, 
fF ORSCODE ) PIC CON EL XE RD NOWRT NOVEC LONG 


te + 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 


Initialization | 31 00 +98: 00-19 00:00:01.46 
Command processing 125 00:00:00.5 00:00:04.15 | 
Pass 100 00:00:00.56 00:00:03.37 
Symbol table sort 0 00:00:00.00 00:00:00.00 
ass 2 38 00:00:00.29 00:00:01.50 
Symbol table output 1 00:00:00.01 00:00:00.01 
Psect synopsis output 3 00:00:00.02 00:00:00.20 
Cross-reference output 0 BB ho :07S8 BR RD eR ee 
Assembler run totals 300 00:00:01.5 00:00:10.69 


The working set Limit was 900 pages. . 
1744 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 2 non-local and 1 local symbols. 
133 source Lines were read in Pass 1, prodyc ne object records in Pass 2. 

pages of virtual memory were used to define 2 macros. 
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Macro Library name Macros defined 
“S255SDUAZB:(SYSLIBISTARLET.MLB;2 0 SSS 2 
15 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORTIMEDS/OBJ=OBJ$:FORTIMEDS MSRC$:FORTIMEDS/UPDATE=(ENHS$:FORTIMEDS) 
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